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— NonResident.mesa; edited by Sandman, Jul 25, 1978 8:26 AM 

DIRECTORY 

AltoDefs: FROM "altodefs" USING [BYTE], 
ControlDefs: FROM "controldef s" USING [ 

Alloc, ControlLink, EPRange, FrameCodeBase, FrameHandle, Free, 

GetReturnFrame, GetReturnLink, GFT, GFTIndex, GFTItem, GlobalFrameHandle, 
, InstWord, Lreg, MainBodylndex, MaxAllocSlot, NullEpBase, NullFrame, 

NullGlobalFrame, Port, PortHandle, SD, StateVector] , 
CoreSwapDefs: FROM "coreswapdef s", 

FrameDefs: FROM "f ramedef s" USING [FrameSize, SwapInCode], 
ImageDefs: FROM "imagedefs", 
InlineDefs: FROM "inlinedefs" USING [ 

BITAND, BITNOT, BITSHIFT, BITXOR, COPY, DIVMOD, LDIVMOD, LongCARDINAL, 

LongDiv, LongDivMod, LongMult], 
LoadStateDefs: FROM "loadstatedef s" USING [ 

Configlndex, ConfigNull, EnterGfi, InputLoadState, MapRealToConf ig, 

ReleaseLoadState], 
MiscDefs: FROM "miscdefs", 

Mopcodes: FROM "mopcodes" USING [zDADD, zDCOMP, zDSUB, zINC, zPORTI], 
NucleusDefs: FROM "nucleusdef s" , 

ProcessDefs: FROM "processdefs" USING [Disablelnterrupts , Enablelnterrupts], 
Resident: FROM "resident" USING [ 

AllocTrap, Break, CodeTrap, CSPort, level, MemorySwap, Restart, Start, 

UnboundProcedureTrap , WBPort, WorryBreaker] , 
SDDefs: FROM "sddefs" USING [ 

sAllocTrap, sAl ternateBreak , sBLTE, sBLTEC, sBreak, sBYTBLTE, sBYTBLTEC, 

sControlFaul t , sCopy, sCoreSwap, SD, sDivSS, sError, sGFTLength, 

sIOResetBits, sLongDiv, sLongDivMod, sLongMod, sLongMul , sRestart, 

sStackError, sStart, sStringlnit, sSwapTrap, sUnbound, sUnNew], 
SegmentDefs: FROM "segmentdef s" USING [ 

AddressFromPage, DeleteFileSegment, FileSegmentHandle, SwapError, Unlock], 
TrapDefs: FROM "trapdefs" USING [UnboundProcedure] ; 

DEFINITIONS FROM ControlDefs; 

NonResident: PROGRAM 

IMPORTS FrameDefs, LoadStateDefs, ResidentPtr: Resident, SegmentDefs, TrapDefs 

EXPORTS FrameDefs, ImageDefs, InlineDefs, MiscDefs, NucleusDefs, TrapDefs, CoreSwapDefs 

SHARES ControlDefs, ImageDefs, Resident ■ BEGIN 

-- Global Frame Table management 

gftrover: CARDINAL <- 0; -- okay to start at because incremented before used 

NoGlobalFrameSlots: PUBLIC SIGNAL [CARDINAL] = CODE; 

EnumerateGlobalFrames: PUBLIC PROCEDURE [ 

proc: PROCEDURE [GlobalFrameHandle] RETURNS [BOOLEAN]] 

RETURNS [GlobalFrameHandle] = 

BEGIN 

i: GFTIndex; 

frame: GlobalFrameHandle; 

gft: POINTER TO ARRAY [0..0) OF GFTItem <- GFT; 

FOR i IN [0. .SD[SDDefs. sGFTLength]) DO 

frame «- gft[i] .frame; 

IF frame # NullGlobalFrame AND gf t[i] .epbase « 

AND proc[frame] THEN RETURN[f rame] ; 

ENDLOOP; 
RETURN[Null Global Frame] 
END; 

EnterGlobalFrame: PUBLIC PROCEDURE [frame: GlobalFrameHandle, nslots: CARDINAL] 
RETURNS [entryindex: GFTIndex] » 
BEGIN 

gft: POINTER TO ARRAY [0..0) OF GFTItem <- GFT; 
i, imax, n, epoffset: CARDINAL; 

i <- gftrover; imax ♦- SD[SDDefs .sGFTLength] - nslots; n <- 0; 
DO 

IF (i «- IF i>«imax THEN 1 ELSE i+1) - gftrover 
THEN SIGNAL NoGlobal FrameSl ots[nslots] ; 

IF gft[i]. frame n NullGlobalFrame THEN n «- 

ELSE IF gft[i]. epbase « NullEpBase THEN n <- 

ELSE IF (n ♦- n+1) * nslots THEN EXIT; , 

ENDLOOP; 
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entryindex <- (gf troverH)-nslots+l; epoffset «- 0; 
FOR i IN [entryindex. .gf trover] DO 

gft[i] *■ GFTItem[frame, epoffset]; 

epoffset <- epoffset + EPRange; 

ENDLOOP; 
RETURN 
END; 

RemoveGlobalFrame: PUBLIC PROCEDURE [frame: Global FrameHandle] ■ 
BEGIN 

gft: POINTER TO ARRAY [0..0) OF GFTItem ♦- GFT; 
sd: POINTER TO ARRAY [0..0) OF CARDINAL ♦- SD; 
i: CARDINAL; 
FOR i «- frame.gfi, i+1 
WHILE i<sd[SDDefs.sGFTLength] AND gf t[i], Frame=f rame DO 

gft[i] *• IF frame. copied THEN 

GFTItem[Nul 1 Global Frame, 0] ELSE GFTItem[Nul 1 Global Frame, Null EpBase]; 

ENDLOOP; 
RETURN 
END; 

-- Traps 

StackError: PUBLIC ERROR [FrameHandle] - CODE; 

StackErrorTrap: PROCEDURE ■ 
BEGIN 

state: StateVector; 
foo: BOOLEAN; 
state <- STATE; 
foo <- TRUE; 

IF foo THEN ERROR StackError[GetReturnFrame[]] ; 
END; 

NullPort: PortHandle ■ LOOPHOLE[0]; 

PortFault: PUBLIC ERROR = CODE; 

LinkageFault: PUBLIC ERROR ■ CODE; 

ControlFault: PUBLIC SIGNAL [source: FrameHandle] RETURNS [ControlLink] - CODE; 

PORTI: PROCEDURE - MACHINE CODE BEGIN Mopcodes . zPORTI END; 

ControlFaultTrap: PROCEDURE - 
BEGIN 

errorStart, savedState: StateVector; 
p, q: PortHandle; 
sourceFrame, self: FrameHandle; 
savedState ♦- STATE; 
self <- REGISTER[Lreg]; 
IF PortCall[self .returnlink] THEN 
BEGIN 

p <- self . return! ink. port; 
q «- p.dest.port; 
sourceFrame «- p. frame; 
IF q - NullPort THEN 

errorStart. stk[0] «- LinkageFault 
ELSE 
BEGIN 

qt <- Port[l inks[NullFrame,[indirect[port[p]]]]]; 
errorStart. stk[0] <- PortFault; 
END; 
errorStart. stk[l] <- 0; 
errorStart. instbyte <- 0; 
errorStart . stkptr ♦- 2; 

errorStart. source «- sourceFrame. return! ink; 
errorStart. dest <- SD[SDDef s.sError]; 
IF savedState. stkptr » THEN 

RETURN WITH errorStart — RESPONDING port 
ELSE 
BEGIN 

p. frame «- self; 
TRANSFER WITH errorStart; 
PORTI; 

p. frame <- sourceFrame; 
savedState. source ♦- p; 
savedState. dest <- p. dest; 
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RETURN WITH savedState; 
END; 

END 
ELSE 

BEGIN 

savedState. source <- self .returnl ink; 

savedState. dest <- SIGNAL ControlFaul t[savedState. source]; 

RETURN WITH savedState 

END; 
END; 

PortCall: PROCEDURE [source: Control Link] RETURNS [BOOLEAN] ■ 
BEGIN 

portcall : BOOLEAN <- FALSE; 
WHILE source. tag ■ indirect DO 

source <- source. 1 inkt; 

ENDLOOP; 
IF source. tag ■ frame AND 

FrameDefs.ReturnByte[source.frame,0] ■ Mopcodes.zPORTI THEN 
portcall <- TRUE; 
RETURN[portcall] 
END; 

ReturnByte: PUBLIC PROCEDURE [frame: FrameHandle, byteoffset: INTEGER] 
RETURNS [byte: Al toDef s .BYTE] ■ 
BEGIN 

OPEN SegmentDefs; 

g: GlobalFrameHandle a f rame.accessl ink; 
iw: POINTER TO InstWord; 
bytePC: CARDINAL = byteoffset + (IF frame. pc<0 

THEN 2*(-frame.pc)+l ELSE 2*frame.pc); 
FrameDef s .SwapInCode[g]; 
iw «- g.code.codebase + bytePC/2; 

byte <- IF bytePC MOD 2 # THEN iw.oddbyte ELSE iw.evenbyte; 
Unlock[g.codesegment]; 
RETURN 
END; 

-- Frame manipulation 

InvalidGlobalFrame: PUBLIC SIGNAL [frame: GlobalFrameHandle] - CODE; 

ValidateGlobalFrame: PUBLIC PROCEDURE [g: GlobalFrameHandle] = 
BEGIN 

IF ~ValidGlobalFrame[g] THEN SIGNAL Inval idGloba!Frame[g]; 
END; 

ValidGlobalFrame: PROCEDURE [g: GlobalFrameHandle] 
RETURNS[BOOLEAN] - 
BEGIN 

RETURN[LOOPHOLE[g, ControlLink] . tag * frame AND GFT[g. gfi] .frame - g] 
END; 

GlobalFrame: PUBLIC PROCEDURE [link: UNSPECIFIED] 
RETURNS [GlobalFrameHandle] - 
BEGIN OPEN 1: LOOPHOLE[l ink , ControlLink]; 
DO SELECT 1 .tag FROM 
frame => 
BEGIN 

IF link = THEN RETURN[Nul IGlobal Frame] ; 
IF ValidGlobairrame[link] THEN RETURNp ink] ; 
IF Val idGlobalJrame[l . frame. accessl ink] THEN 

RETURN[1 . frame. accessl ink]; 
RETURN[Nu 11 Global Frame] 
END; 
procedure => RETURN[GFT[1 .gfi] .frame] ; 
indirect «> link «- l.linkt; 

unbound «> link <- SIGNAL TrapDef s.UnboundProcedure[l ink] ; 
ENDCASE ENDLOOP 
END; 

Copy: PROCEDURE [old: GlobalFrameHandle] RETURNS [new: GlobalFrameHandle] 
BEGIN 

linkspace: CARDINAL *- 0; 
FrameDef s .SwapInCode[old]; 
[new, linkspace] <- AllocGlobalFrame[old]; 
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new *- new + 1 inkspace; 

newt 4- [gfi: t unused: 0, alloced: TRUE, shared: TRUE, copied: TRUE, 

started: FALSE, trapxfers: FALSE, codelinks: old. code! inks , 

code:, codesegment : old.codesegment, global:]; 
new.gfi *- FrameDef s.EnterGlobal Frame[new, old .code .prefix. ngfi] ; 
new. code. of f set <- 

old. code. co debase - Segmen tDefs. Add ressFromPage[old. codes egment . VMpage] ; 
new. code, swappedout «- TRUE; 
new.global[0] <- NullGlobalFrame; 
old. shared <- TRUE; 
IF linkspace # THEN In! ineDef s.COPY[ 

from: old-1 inkspace, to: new-1 inkspace, nwords: linkspace]; 
Segmen tDefs .Unlock [old. codesegment]; 
RETURN 
END; 

MakeFsi: PUBLIC PROCEDURE [words: CARDINAL] RETURNS [fsi: CARDINAL] » 
BEGIN 
FOR fsi IN [0. .MaxAllocSlot) DO 

IF FrameDefs.FrameSize[fsi] >» words THEN RETURN; 

ENDLOOP; 
RETURN[words] 
END; 

AllocGlobalFrame: PROCEDURE [old: Global FrameHandle] 

RETURNS [frame: Global FrameHandle , linkspace: CARDINAL] » 

BEGIN OPEN cp: ol d . code . prefix; 

pbody: POINTER; 

size: CARDINAL; 

pbody *- old.code.codebase+CARDINAL[cp.entry[MainBodyIndex], initial pc]; 

size <- IF cp.entry[MainBodyIndex].framesize = MaxAllocSlot THEN (pbody-2)t 

ELSE (pbody-l)t; 
linkspace +• IF ~old. code! inks THEN 

cp. nlinks + InlineDefs.BITAND[-LOOPHOLE[cp. nlinks, INTEGER], 3B] 

ELSE 0; 
frame <- Alloc[MakeFsi[FrameDefs. FrameSize[size]+l inkspace]]; 
RETURN 
END; 

UnNew: PROCEDURE [frame: GlobalFrameHandle] ■ 
BEGIN 

cseg: SegmentDef s . FileSegmentHandle *- frame. codesegment; 
sharer: GlobalFrameHandle <- NullGlobalFrame; 
original: GlobalFrameHandle <- NullGlobalFrame; 
copy: GlobalFrameHandle «- NullGlobalFrame; 
fcb: FrameCodeBase; 
nothers: CARDINAL «- 0; 
nlinks: CARDINAL; 

RemoveAllTraces: PROCEDURE [f: GlobalFrameHandle] RETURNS [BOOLEAN] * 
BEGIN 

IF Wrame THEN 
BEGIN 

IF f.global[0] * frame AND ~f . started THEN f.global[0] *- NullFrame; 
IF f .codesegment ■ cseg THEN 
BEGIN 

nothers «- nothers + 1; sharer <- f; 
ProcessDef s .Disablelnterrupts[]; 
IF (IF f . code. swappedout THEN f.code « fcb 

ELSE f .code.codebase - frame. code. codebase) THEN 
IF f. copied THEN copy <- f ELSE original ♦• f; 
Process Defs. En ab lei nterrupts[]; 
END; 
END; 
RETURN[FALSE]; 
END; 
Val idateGloba!Frame[ frame]; 
FrameDef s . Swap I nCode[ frame] ; 
nlinks <- frame . code, prefix, nl inks ; 

fcb. offset <- frame. code. codebase - SegmentDef s. AddressFromPage[cseg. VMpage]; 
fcb. swappedout *- TRUE; 

[] «- FrameDefs .EnumerateGlobalFrames[RemoveAllTraces]; 
SegmentDef s. Unlock [cseg] ; 

IF original = NullGlobalFrame AND -frame . copied AND copy tt NullGlobalFrame THEN 
BEGIN OPEN LoadStateDefs; 
config: Configlndex; 
cgfi: GFTIndex; 
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cop,y. copied «- FALSE; 

[] <- InputLoadState[]; 

[cgfi: cgfi, config: config] <- MapRealToConf ig[f rame.gf i]; 

EnterGfi[cgf i : 0, rgfi: frame. gfi, config: ConfigNull]; 

EnterGf i[cgf i : cgfi, rgfi: copy. gfi, config: config]; 

ReleaseLoadState[] ; 

END; 
IF frame. shared THEN 

BEGIN 

IF nothers ■ 1 THEN sharer . shared <- FALSE 

END 
ELSE 

BEGIN OPEN SegmentDefs; 

DeleteFileSegment[cseg 1 SwapError => CONTINUE]; 

END; 
FrameDefs . RemoveGlobal Frame [frame]; 
IF frame. alloced THEN 

BEGIN 

Align: PROCEDURE [POINTER, WORD] RETURNS [POINTER] « 
L00PH0LE[In1ineDefs.BITAND]; 

IF frame. code! inks THEN Free[frame] 

ELSE Free[Align[frame - nlinks, 177774B]] 

END; 
END; 



-- unimplemented instructions 

BlockEqual: PROCEDURE [pi: POINTER, n: CARDINAL, p2: POINTER] 
RETURNS [BOOLEAN] * 
BEGIN 

i: CARDINAL; 
FOR i IN [0 . . n) DO 

IF (pl+i)t # (p2+i)t THEN RETURN[FALSE] ; ENDLOOP; 
RETURN[TRUE] 
END; 

PPA: TYPE ■ POINTER TO PACKED ARRAY [0..0) OF Al toDef s .BYTE; 

ByteBTockEqual : PROCEDURE [pi: PPA, n: CARDINAL, p2: PPA] 
RETURNS [BOOLEAN] - 
BEGIN 

RETURN[BlockEqual[pl: pi, p2: p2, n: n/2] AND pl[n-l] » p2[n-l]] 
END; 

BlockEqualCode: PROCEDURE [pi: POINTER, n: CARDINAL, offset: CARDINAL] 
RETURNS [result: BOOLEAN] » 
BEGIN 

frame: GlobalFrameHandle ■ ControlDefs .GetReturnFrame[]. access! ink; 
FrameDefs .SwapInCode [frame ] ; 

result *- BlockEqual[pl: pi, n: n, p2: frame, code . codebase + offset]; 
SegmentDef s.Unlock[frame.codesegment]; 
RETURN 
END; 

ByteBlockEqualCode: PROCEDURE [pi: POINTER, n: CARDINAL, offset: CARDINAL] 
RETURNS [result: BOOLEAN] = 
BEGIN 

frame: GlobalFrameHandle = ControlDef s .GetReturnFrame[].accessl ink; 
FrameDefs ,SwapInCode[f rame] ; 

result <- ByteBlockEqual[pl: pi, n: n, p2: frame, code, codebase + offset]; 
SegmentDef s. Unlock [frame. codes egment]; 
RETURN 
END; 

-- data shuffling 

Stringlnit: PROCEDURE [coffset, n: CARDINAL, reloc, dest: POINTER] « 
BEGIN OPEN ControlDefs; 

g: GlobalFrameHandle a GetReturnFrame[] .access! ink; 
i: CARDINAL; 

FrameDefs .SwapInCode[g]; 
InlineDefs.COPY [ 

f rom:g. code. codebase+coff set, to:dest, nwords:n]; 
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FOR i IN [0..n) DO 

(dest+i)t <- (dest+i)t + reloc; 

ENDLOOP; 
SegmentDef s. Unlock [g. codes egment ] ; 
RETURN 
END; 

-- long, signed and mixed mode arithmetic 

DIVMOD: PROCEDURE [n,d: CARDINAL] RETURNS [QR] ■ 

LOOPHOLE[InlineDefs.DIVMOD]; 
LDIVMOD: PROCEDURE [nlow, nhigh , d : CARDINAL] RETURNS [QR] ■ 

LOOPHOLE[InlineDefs.LDIVMOD]; 
QR: TYPE ■ RECORD [q, r: INTEGER]; 
PQR: TYPE « POINTER TO QR; 

LongSignDivide: PROCEDURE [numhigh: INTEGER, pqr: PQR] ■ 
BEGIN 

negnum.negden: BOOLEAN <- FALSE; 
IF negden <- (pqr.r < 0) THEN pqr.r <- -pqr.r; 
IF negnum <- (numhigh < 0) THEN 

BEGIN 

IF pqr.q ■ THEN numhigh <- -numhigh 

ELSE BEGIN pqr.q «- -pqr.q; numhigh <- In! ineDef s .BITNOT[numhigh] END; 

END; 
pqrt <- LDIVMOD[nlow: pqr.q, nhigh: numhigh, d: pqr.r]; 
-- following assumes TRUE ■ 1; FALSE ■ 
IF InlineDefs.BITXOR[LOOPHOLE[negnum],LOOPHOLE[negden]] # THEN 

pqr.q <- -pqr.q; 
IF negnum THEN pqr.r <- -pqr.r; 
RETURN 
END; 

DivSS: PROCEDURE « 
BEGIN 

state: ControlDef s.StateVector; 
p: PQR; 
t: CARDINAL; 
state <- STATE; 

state, stkptr <- t <- state, stkptr-1; 
state. dest ♦- ControlDefs.GetReturnLink[]; 
p <- ©state. stk[t-l]; 

LongSignDivide[numhigh: (IF p.q<0 THEN -1 ELSE 0), pqr: p]; 
RETURN WITH state 
END; 

LongCARDINAL: TYPE - Inl ineDef s . LongCARDINAL; 

DAdd: PROCEDURE [a.b: LongCARDINAL] RETURNS [LongCARDINAL] - 

MACHINE CODE BEGIN Mopcodes . zDADD END; 
DSub: PROCEDURE [a.b: LongCARDINAL] RETURNS [LongCARDINAL] - 

MACHINE CODE BEGIN Mopcodes . zDSUB END; 
DCompare: PROCEDURE [a.b: LongCARDINAL] RETURNS [{less, equal, greater}] 

MACHINE CODE BEGIN Mopcodes . zDCOMP ; Mopcodes .zINC END; 

DDivMod: PROCEDURE [num. den: LongCARDINAL] 
RETURNS [quotient, remainder: LongCARDINAL] « 
BEGIN OPEN InlineDefs; 
negNum, negDen: BOOLEAN *- FALSE; 
qq: CARDINAL; 
count: [0. .31) ; 
ITemp: LongCARDINAL; 
IF LOOPHOLE[num.highbits, INTEGER] < THEN 

BEGIN negNum <- TRUE; num <- DSub[[0,0] ,num]; END; 
IF LOOPHOLE[den.highbits, INTEGER] < THEN 

BEGIN negDen <- TRUE; den ♦• DSub[[0 , 0] ,den] ; END; 
IF den.highbits - THEN 

BEGIN 

[quotient .highbits , qq] ♦• 

LongDivMod[[lowbits:num.highbits ,highbits:0],den. lowbits] ; 

[quot ient .lowbits , remainder . lowbits] ♦• 

LongDivMod[[ lowbits: num. lowbits, highbits :qq], den. lowbits] ; 

remainder .highbits «- 0; 

END 
ELSE 

BEGIN 

count 4- 0; 
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quotient . highbits <- 0; 

ITemp <- den; 

WHILE ITemp. highbits # DO -- normalize 

ITemp. lowbits ♦■ 

BITSHIFTpTemp. lowbits, -1] + BITSHIFT[lTemp. highbits ,15]; 

ITemp. highbits *- BITSHIFT[lTemp. highbits ,-1] ; 

count «- count + 1; 

ENDLOOP; 
qq <~ LongDiv[num, ITemp. lowbits] ; -- trial quotient 
qq <- BITSHIFT[qq, -count]; 

ITemp <- LongMul t[den. lowbits, qq] ; -- multiply by trial quotient 
ITemp. highbits <- 1 Temp, highbits + den.highbits*qq; 
UNTIL DCompare[lTemp , num] # greater DO 

-- decrease quotient until product is small enough 

ITemp «- DSub[lTemp,den]; 

qq ♦- qq - 1; 

ENDLOOP; 
quotient, lowbits <- qq; 
remainder ♦■ DSub[num, ITemp]; 
END; 
IF BITXOR[LOOPHOLE[negNum],LOOPHOLE[negDen]] # THEN 

quotient <- DSub[[0 ,0] .quotient] ; 
IF negNum THEN remainder <- DSub[[0,0] , remainder] ; 
RETURN 
END; 

DDiv: PROCEDURE [a,b: LongCARDINAL] RETURNS [LongCARDINAL] - 
BEGIN OPEN InlineDefs; 
RETURN[DDivMod[a,b]. quotient] 
END; 

DMod: PROCEDURE [a,b: LongCARDINAL] RETURNS [r: LongCARDINAL] * 
BEGIN OPEN InlineDefs; 
[remainder: r] «- DDivMod[a, b]; 
RETURN 
END; 

DMultiply: PROCEDURE [a,b: LongCARDINAL] 
RETURNS [product: LongCARDINAL] * 
BEGIN OPEN InlineDefs; 

product <- LongMul t[a. lowbits , b. lowbits]; 
product. highbits «- 

product. highbits + a. lowbits*b. highbits + a. highbits*b. lowbits; 
RETURN 
END; 

GetLevel: PUBLIC PROCEDURE RETURNS [INTEGER] - 
BEGIN RETURN[ResidentPtr. level] END; 

SetLevel: PUBLIC PROCEDURE [1: INTEGER] - BEGIN ResidentPtr . level «- 1; END; 

Init: PROCEDURE - 
BEGIN OPEN SDDefs; 

sd: POINTER TO ARRAY [0..0) OF UNSPECIFIED <- SD; 
resident: POINTER TO FRAME [Resident] «- ResidentPtr; 
sd[sStackError] +- StackErrorTrap; 
sd[sContro!Fault] ♦- Control FaultTrap; 
sdfsBLTE] <- BlockEqual ; 
sd[sBYTBLTE] «- By teBl ockEqual ; 
sd[sBLTEC] ♦- BlockEqualCode; 
sd[sBYTBLTEC] «- ByteBlockEqualCode; 
sd[sStringIni t] <- Stringlnit; 
sd[sDivSS] «- DivSS; 
sd[sLongMul] ♦- DMultiply; 
sd[sLongDivMod] ♦- DDivMod; 
sd[sLongMod] <- DMod; 
sd[sLongDiv] <- DDiv; 
sd[sCopy] <- Copy; 
sd[sUnNew] «- UnNew; 

BEGIN OPEN resident; 

sd[sAllocTrap] <- AnocTrap[AllocTrap[NullFrame]]; 

sd[sSwapTrap] «- CodeTrap; 

sd[sUnbound] <- UnboundProceclureTrap; 

sd[sStart] *- Start; 

sd[sRestart] <- Restart; 
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sd[sBreak] ♦• Break; 

sd[sA1ternateBreak] <- WorryBreaker[] ; 

sd[sIOResetBits] <- 3; 

LOOPHOLE[CSPort,Port].in <- MemorySwap; 

LOOPHOLE[CSPort, Port]. out <- ©WBPort; 

sd[sCoreSwap] «- L00PH0LE[WBPort, Port] .out <- OCSPort; 

WBPort[NIL]; 

level «- -1; 

END; 

END; 



-- Main Body; 

Init[]; 

END... 



